Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/Intro to HyperCard 2.0/card_13216.txt

Text File | 1990-08-24 | 8.5 KB | 398 lines

-- card: 13216 from stack: in.0
-- bmap block id: 13490
-- flags: 2000
-- background id: 15491
-- name: AppleTree
----- HyperTalk script -----
on goPrev
  set cursor to none
  lock screen
  go prev
  unlock screen with dissolve
  hide cd fld "text1" of next cd
  hide pict of next cd
  repeat with n = 2 to 21
    hide btn ("apple" & n)  of next cd
  end repeat
  showText
end goPrev


-- part of the apple animation
on Action
  global TreeTop
  -- go to the "guy under the tree" cd
  set cursor to none
  visual scroll up slow
  go next
  -- reset prev cd
  hide cd fld "text1" of prev cd
  hide pict of prev cd
  repeat with n = 2 to 21
    hide btn ("apple" & n)  of prev cd
  end repeat
  DropApple
  -- go to the "guy hit by apple" cd
  go next
  set the top of btn "apple" of prev cd to TreeTop
  wait 10
  StarCircle
  visual dissolve slow
  go Next
  hide btn "star" of prev cd
  wait 10
  PlanetCircle
  wait 10
  showText
end Action



-- part 8 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=362 top=272 right=313 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple7


-- part 9 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=445 top=152 right=184 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple16


-- part 10 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=409 top=157 right=198 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple9


-- part 11 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=369 top=15 right=56 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple17


-- part 12 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=330 top=96 right=137 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple5


-- part 13 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=319 top=129 right=161 bottom=348
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple6


-- part 14 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=292 top=97 right=138 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple2


-- part 15 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=268 top=214 right=255 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple8


-- part 16 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=246 top=131 right=172 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple18


-- part 1 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=289 top=30 right=105 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: text1


-- part 17 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=199 top=223 right=264 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple19


-- part 18 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=208 top=33 right=65 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple11


-- part 19 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=174 top=258 right=299 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple14


-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=158 top=100 right=141 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple1


-- part 21 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=150 top=7 right=39 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple3


-- part 22 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=133 top=271 right=312 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple13


-- part 23 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=127 top=101 right=133 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple21


-- part 24 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=96 top=166 right=207 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple4


-- part 25 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=64 top=95 right=136 bottom=103
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple15


-- part 26 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=50 top=257 right=289 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple12


-- part 27 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=39 top=174 right=215 bottom=78
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple20


-- part 28 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=39 top=111 right=143 bottom=68
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple10


-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=474 top=195 right=224 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 24471 / 24471
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MapBtn
----- HyperTalk script -----
-- Go to the Map stack.  "CameFrom" holds the name of this cd
-- so the Map can hilite the cd the user came from.

on mouseUp
  global DisSpeed, CameFrom, MapMode
  set the hilite of me to true
  lock Screen
  set the hilite of me to false
  put "Introduction to" into CameFrom
  put last char of the icon of bg btn "section" into sectionNum
  if sectionNum > 3 then put 2 into sectionNum
  put "section" && sectionNum & ":" into SubCd
  visual DisSpeed
  if MapMode is "graph" then
    go to cd SubCd of stack "•HC 2.0-3"
    HiliteMap
  else
    go to cd "indexmap" of stack "•HC 2.0-3"
  end if
  unlock screen with DisSpeed
end mouseUp



-- part contents for card part 1
----- text -----
And apple trees make me think of summer afternoons...and reading in the shade....